"0","rich.1 <- length(unique(samp.1))
rich.2 <- length(unique(samp.2))
rich.4 <- length(unique(samp.4))
rich.8 <- length(unique(samp.8))
rich.16 <- length(unique(samp.16))
rich.32 <- length(unique(samp.32))
rich.64 <- length(unique(samp.64))
rich.128 <- length(unique(samp.128))"
